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DISPLAYSCHAR: PROC (CHARACTER) PUBLIC; 
DCL CHARACTER EYTEJ 
CAIL M0N1 ( P , CHARACTER ) ; 

END display$char; 
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The System Routines invoke the CF /M operating system 
to perform their respective functions. This entails 
calling the sub routines nonitor_l ( mo nl ) and 
monitor_2 (mon2). monl and mon2 very simply transfer 
control to the CF /M operating 1 system via a jump vector 
located at 35 K . The pseudocode for monl and mon2 is 
as follows: 

mon/mon2 : PROCEDURE (funct ion_number , argument); 

DECLARE functi on_num'ber RITE, 
a rgumen t "ADDRESS , 

load the C register with function_number 

load tne D & E register with argument 

jump to the CP/M entry point /* location £5H */ 

/* CP/M new performs tne desired function as 
determined by the funct ion_number and 
arguments */ 

return byte value in the HAL reg /* mon2 only ■■•/ 
end monl 



; tne following is the assembly code for monl and mon2 
ORG P100R 

CSEG Jcseg tells the assembler to produce 

{relocatable code 

PUBLIC monl, mon2 

bdos equ C235H 

monl : Jmonl and mor.2 are public labels 

mon2 : 

JM? bdos 

END CieCH 
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PROCEDURE Build table (routine) 
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01^9 110A01 L.XI D, CRLF Jload the DAE reps v/ the address of crlf 

017C C5 PUSH B Jsave tne linkage pointer 

017B 219601 1X1 F, RETAD3 Jsave the return address or) the stack 
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■°ETAP1 : 
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CAIL disply .buffe r ('The sum of the data array is 
CAI L disply .hex_buffer (result). 
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6C 


78 


64 


90 


9C 


AS 


pA 


00 


0C 


1A 


27 


34 


41 


4E 


53 


66 


75 


82 


6F 


9C 


A 9 


36 


C3 


00 


0E 


1C 


2A 


38 


46 


54 


62 


70 


7E 


sc 


9 A 


AS 


ES 


C4 


T2 


00 


OF 


IE 


2D 


3C 


43 


5A 


69 


78 


67' 


96 


A 5 


34 


C3 


D2 


El 









\ 


ADDITION 






TABLES 










0 


1 


2 


3 


4 


c 


6 


7 


8 


» 


A 


E 


C 


D 


E 


F 


00 


01 


02 


03 


04 


05 


06 


07 


06 


09 


0A 


03 


0C 


0D 


£E 


0F 


01 


02 


03 


04 


05 


06 


07 


06 


09 


0A 


03 


ec 


0 E 


0 E 


0 F 


10 


02 


03 


04 


05 


06 


07 


08 


09 


0A 


03 


ec 


0D 


0E 


0F 


10 


11 


03 


04 


05 


06 


07 


06 


09 


0A 


03 


0C 


0D 


0 E 


0 F 


10 


11 


12 


04 


05 


06 


07 


06 


09 


£ A 


03 


ec 


0D 


0E 


0F 


10 


11 


12 


13 


05 


06 


07 


08 


09 


0 A 


03 


0C 


0D 


0E 


0F 


10 


11 


12 


13 


14 


06 


07 


08 


09 


0 A 


03 


0C 


0D 


0E 


OF 


10 


11 


12 


13 


14 


15 


07 


06 


09 


0 A 


03 


0C 


0E 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


08 


09 


0A 


03 


0 C 


0D 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


09 


0A 


0E 


0C 


0D 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


16 


0 A 


03 


0C 


0 D 


0 E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


16 


19 


03 


0C 


0D 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


13 


19 


1A 


0C 


0D 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


1A 


13 


0D 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


16 


19 


1A 


13 


1C 


0E 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


IS 


19 


1A 


13 


1C 


ID 


0F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


1A 


13 


1C 


ID 


IE 



239 



THE PROCESS REFERENCE TABLE 



1 


OE 


JECT NA^E 


- DEMO.COM 




BASS ADDRESS 


- 86S9 


2 


OEJECT NAME 


- HEADER . DTA 




EA 


SE ADDRESS 


- 9211 


3 


OEJECT NAME 


- DISPLY.COM 




EASE ADDRESS 


- 9595 


4 


OE 


JECT NAME 


- MULT.COM 




BASE ADDRESS 


- 9979 


5 


NO 


ENTRY 




6 


NO 


ENTRY 




7 


NO 


ENTRY 




c 


NO 


ENTRY 




9 


NO 


ENTRY 




10 


NO 


ENTRY 




11 


NO 


ENTRY 




12 


NO 


ENTRY 




13 


NO 


ENTRY 




14 


NO 


ENTRY 




15 


NO 


ENTRY 




16 


NO 


ENTRY 
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THE COMBINED LINKAGE TABLE 



LINKAGE TABLE 1 (Lp = 7£3£ ) (PEAie) 



I SIZE - 35 










j SNT - 8965 










! UNSNAPPED 

| INCOMING LINK 










JUMP TO 7113 


SNAPPED 


PROCEDURE 


LINK 


( ADDRESS - 7£4£) 


! LOAD FTR 9228 


SNAPPED 


DATA LINK 


(ADDR 


ESS - 7 C 4 5 } 


! RETURN 










! JUMP TO 7096 


SNAPPED 


FFOCEDURE 


I INK 


( ADDRESS - 7£ 55 ^ 


| JUMF TO 71£2 


SNAPPED 


PROCEDURE 


LINK 


(ADDRESS - 7250) 



LINKAGE TABLE 2 (Lp = 7£o6 ) (HEADER.) 



SIZE - 25 
S NT - 7£7£ 



DATA SYMBOLIC NAME TABLE (ATDRESS 

DESCRIPTOR - £6H 
LINK OFFSET - £ 

ENTRY FCINT - £ 

NAME - HEADER 



DESCRIPTOR - 05H 
LINK OFFSET - £ 
ENTRY POINT - 17 
NAME - TITLE 



7£7£ } 
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LINKAGE TABLE 3 (Lp - 7092 ) 



( D»S (>l.V 



INCOMING I INK (ADDRESS - 7096) 



INCOMING LINK (ADDRESS - 7102) 



LINKAGE TAD IE 4 (Lp = 7129 ) ( MULT) 



INCOMING LINK (ADDRESS - 7113) 



SNAPFSD PROCEDURE LINK (ADDRESS - 7119) 



SIZE 


- 


15 


S NT 


- 


1C096 


load 


LP 


7109 


JUMP 


TO 


10044 


JUMP 


TO 


7096 



SIZE 


- 


16 


SNT 


- 


9713 


LOAD 


LP 


7092 


JUMP 


TO 


9650 


LOAD 


LP 


7092 


JTT yp 


TO 


9665 
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A>EXSC SUM $ 

DYNAMIC LINKER VERSION 1.0 



TEE SUM OF THE DATA ARRAY IS 4 A 
END OF SUM 



TEE PROCESS REFERENCE 'TABLE 



1 : 


OBJECT NAME 


- SUM.COM 




BAS 


E ADDRESS 


- £699 


2 : 


: oe; 


ECT NAME 


- ARRAY . DTA 




BASE ADDPESS 


- S0S3 


3 : 


: OEJECT NAME 


- DISPLY.COM 




BASE ADDRESS 


- 9339 


4 


NO 


ENTRY 




5 


NO 


ENTRY 




6 


NO 


ENTRY 




7 


NO 


ENTRY 




8 


NO 


ENTRY 




9 


NO 


ENTRY 




10 


NO 


ENTRY 




11 


NO 


ENTRY 




12 


NO 


ENTRY 




13 


NO 


ENTRY 




14 


NO 


ENTRY 




15 


NO 


ENTRY 




16 


NO 


ENTRY 
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. 



THE COMBINED I INK AGE TABLE 



LINKAGE TAELS 1 (Lp = 7030 ) (s^m) 



SIZE - 25 



S NT - 8677 



TJNSNAPPED 
INCOMING LINK 



LOAD PT* 9083 



RETURN 



JUMP TO 7081 



JUMP TO 7075 



SNAPPED LATA LINK (ADDRESS - 7040) 



SNAPPED PROCEDURE LINK (ADDRESS - 7045) 
SNAPPED PROCEDURE LINK (ADDRESS - 7050) 



LINKAGE TABLE 2 (Lp = 7056 ) ( AR.R.AV ) 

I | 

! SIZE - 14 ! 



! S NT - 7060 ! 

i i 

i — i 

DATA SYMBOLIC NAME TAELS (ADDRESS - 7060) 

DESCRIPTOR - 05K 
LINK OFPSET - 0 
ENTRY POINT - 0 
NAME - ARRAY 
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LINKAGE TAELS 3 (Lp ^ 7071 ) 



( blS PL/) 



| SIZE 


- 16 










! S NT 


- 9457 










! LOAD 


Lr 7071 


INCOMING 


LINK 


(ADDRESS 


- 7075) 


| JUMP 


TO 9394 










! LOAD 


LP 7071 


INCOMING 


LINK 


(ADDRESS 


— 7t cl ) 


! JUMF 


TO 9429 
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